home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / H-I / HypertalkTools.cpt / Shareware Accountant / card_2973.txt < prev    next >
Text File  |  1989-02-26  |  12KB  |  472 lines
  1. -- card: 2973 from stack: in
  2. -- bmap block id: 4402
  3. -- flags: 4000
  4. -- background id: 2796
  5. -- name: frontcard
  6. ----- HyperTalk script -----
  7. on opencard
  8.   hide card field about
  9. end opencard
  10.  
  11.  
  12.  
  13. -- part 1 (button)
  14. -- low flags: 00
  15. -- high flags: 0000
  16. -- rect: left=16 top=276 right=305 bottom=54
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 902 / 902
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: Prev
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   go to previous card
  28. end mouseUp
  29.  
  30.  
  31. -- part 2 (button)
  32. -- low flags: 00
  33. -- high flags: 0000
  34. -- rect: left=53 top=276 right=305 bottom=89
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 26425 / 26425
  37. -- text alignment: 1
  38. -- font id: 0
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: Next
  43. ----- HyperTalk script -----
  44. on mouseUp
  45.   go to next card
  46. end mouseUp
  47.  
  48.  
  49. -- part 3 (button)
  50. -- low flags: 00
  51. -- high flags: 0000
  52. -- rect: left=53 top=304 right=333 bottom=89
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 29114 / 29114
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: Return
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   visual effect iris close
  64.   pop card
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 4 (button)
  70. -- low flags: 00
  71. -- high flags: 0000
  72. -- rect: left=16 top=304 right=333 bottom=54
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 21449 / 21449
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: First
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   go to first card
  84. end mouseUp
  85.  
  86.  
  87.  
  88. -- part 5 (button)
  89. -- low flags: 00
  90. -- high flags: 8003
  91. -- rect: left=3 top=146 right=168 bottom=159
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: New Registration
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   ask "What is the name of the product?"
  103.   push card
  104.   visual effect dissolve
  105.   go card it
  106.   if the result is not empty then
  107.     answer "Sorry, couldn't find that.  Check your spelling."
  108.     exit mouseup
  109.   end if
  110.   put field productname into product
  111.   put field currentversion into version
  112.   put field regprice into price
  113.   domenu New Card
  114.   put the date into field regdate
  115.   put product into field productname
  116.   put version into field currentversion
  117.   put price into field regprice
  118.   answer "Enter registrant information."
  119. end mouseUp
  120.  
  121.  
  122.  
  123. -- part 6 (button)
  124. -- low flags: 80
  125. -- high flags: 8003
  126. -- rect: left=3 top=208 right=230 bottom=159
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 0 / 0
  129. -- text alignment: 1
  130. -- font id: 0
  131. -- text size: 12
  132. -- style flags: 0
  133. -- line height: 16
  134. -- part name: Print Mailing Labels
  135.  
  136.  
  137. -- part 7 (button)
  138. -- low flags: 00
  139. -- high flags: 8003
  140. -- rect: left=3 top=242 right=264 bottom=159
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: Update Totals
  149. ----- HyperTalk script -----
  150. on mouseUp
  151.   show card field patient
  152.   set the cursor to 4
  153.   put 0 into line 1 of card field incometotal
  154.   put 0 into line 1 of card field expensetotal
  155.   put 0 into line 1 of card field netincome
  156.   set lockscreen to true
  157.   global sum
  158.   put 0 into sum
  159.   go card master
  160.   get the name of bkgnd
  161.   put it into temp
  162.   put it into temp1
  163.   repeat while temp1 = temp
  164.     if field regname <> "MASTER" then
  165.       add field regprice to sum
  166.     end if
  167.     go next
  168.     get the name of bkgnd
  169.     put it into temp
  170.   end repeat
  171.   go card frontcard
  172.   set lockscreen to false
  173.   put sum into line 1 of card field incometotal
  174.   set lockscreen to true
  175.   put 0 into sum
  176.   go card expenses
  177.   get the name of bkgnd
  178.   put it into temp
  179.   put it into temp1
  180.   repeat while temp1 = temp
  181.     add field expenseamount to sum
  182.     go next
  183.     get the name of bkgnd
  184.     put it into temp
  185.   end repeat
  186.   go card frontcard
  187.   set lockscreen to false
  188.   put sum into line 1 of card field expensetotal
  189.   put 0 into line 1 of card field netincome
  190.   add line 1 of card field incometotal to line 1 of card field netincome
  191.   subtract line 1 of card field expensetotal from line 1 of card field netincome
  192.   beep
  193.   hide card field patient
  194. end mouseUp
  195.  
  196.  
  197.  
  198. -- part 8 (button)
  199. -- low flags: 00
  200. -- high flags: 0000
  201. -- rect: left=88 top=276 right=333 bottom=134
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 20689 / 20689
  204. -- text alignment: 1
  205. -- font id: 0
  206. -- text size: 12
  207. -- style flags: 0
  208. -- line height: 16
  209. -- part name: Home
  210. ----- HyperTalk script -----
  211. on mouseUp
  212.   visual effect iris close
  213.   go home
  214. end mouseUp
  215.  
  216.  
  217.  
  218. -- part 9 (field)
  219. -- low flags: 81
  220. -- high flags: 2007
  221. -- rect: left=165 top=80 right=267 bottom=504
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 0 / 0
  224. -- text alignment: 0
  225. -- font id: 3
  226. -- text size: 12
  227. -- style flags: 0
  228. -- line height: 16
  229. -- part name: about
  230.  
  231.  
  232. -- part 10 (button)
  233. -- low flags: 00
  234. -- high flags: 8003
  235. -- rect: left=3 top=80 right=102 bottom=159
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 1
  239. -- font id: 0
  240. -- text size: 12
  241. -- style flags: 0
  242. -- line height: 16
  243. -- part name: New Product
  244. ----- HyperTalk script -----
  245. on mouseUp
  246.   push card
  247.   visual effect dissolve
  248.   go card MASTER
  249.   domenu New Card
  250.   put "MASTER" into field regname
  251.   ask "What is the name of the new product?"
  252.   put it into field productname
  253.   set name of this card to it
  254.   ask "What is the current version number?"
  255.   put it into field currentversion
  256.   ask "What is the price?"
  257.   put it into field regprice
  258.   put the date into field regdate
  259.   visual effect dissolve
  260.   pop card
  261. end mouseUp
  262.  
  263.  
  264.  
  265. -- part 11 (button)
  266. -- low flags: 00
  267. -- high flags: 8003
  268. -- rect: left=3 top=102 right=124 bottom=159
  269. -- title width / last selected line: 0
  270. -- icon id / first selected line: 0 / 0
  271. -- text alignment: 1
  272. -- font id: 0
  273. -- text size: 12
  274. -- style flags: 0
  275. -- line height: 16
  276. -- part name: New Version
  277. ----- HyperTalk script -----
  278. on mouseUp
  279.   ask "What is the name of the product?"
  280.   push card
  281.   visual effect dissolve
  282.   go card it
  283.   if the result is not empty then
  284.     answer "Sorry, couldn't find that.  Check your spelling."
  285.     exit mouseup
  286.   end if
  287.   ask "What is the new version number?"
  288.   put it into field currentversion
  289.   put the date into field regdate
  290.   visual effect dissolve
  291.   pop card
  292. end mouseUp
  293.  
  294.  
  295.  
  296. -- part 12 (button)
  297. -- low flags: 00
  298. -- high flags: 8003
  299. -- rect: left=3 top=178 right=200 bottom=159
  300. -- title width / last selected line: 0
  301. -- icon id / first selected line: 0 / 0
  302. -- text alignment: 1
  303. -- font id: 0
  304. -- text size: 12
  305. -- style flags: 0
  306. -- line height: 16
  307. -- part name: Expense Input
  308. ----- HyperTalk script -----
  309. on mouseUp
  310.   push card
  311.   visual effect "venetian blinds"
  312.   go card EXPENSES
  313.   domenu New Card
  314.   put the date into field date
  315.   put "Software/Development Tools - Shareware Accountant" into field expenseitem
  316.   put "Francis S. Patrick, 721 E. Brookside Lane" into line 2 of field expenseitem
  317.   put "Somerville, NJ  08876" into line 3 of field expenseitem
  318.   put 24 into field expenseamount
  319.   put "Check #" into field paymentmethod
  320.   answer "Enter new info over shareware reminder."
  321.   answer "Or record it if you are paying up now."
  322. end mouseUp
  323.  
  324.  
  325.  
  326. -- part 13 (field)
  327. -- low flags: 01
  328. -- high flags: 2004
  329. -- rect: left=280 top=284 right=316 bottom=349
  330. -- title width / last selected line: 0
  331. -- icon id / first selected line: 0 / 0
  332. -- text alignment: 1
  333. -- font id: 3
  334. -- text size: 9
  335. -- style flags: 256
  336. -- line height: 12
  337. -- part name: incometotal
  338.  
  339.  
  340. -- part 14 (field)
  341. -- low flags: 01
  342. -- high flags: 2004
  343. -- rect: left=351 top=284 right=316 bottom=420
  344. -- title width / last selected line: 0
  345. -- icon id / first selected line: 0 / 0
  346. -- text alignment: 1
  347. -- font id: 3
  348. -- text size: 9
  349. -- style flags: 256
  350. -- line height: 12
  351. -- part name: expensetotal
  352.  
  353.  
  354. -- part 15 (field)
  355. -- low flags: 01
  356. -- high flags: 2004
  357. -- rect: left=421 top=284 right=316 bottom=503
  358. -- title width / last selected line: 0
  359. -- icon id / first selected line: 0 / 0
  360. -- text alignment: 1
  361. -- font id: 3
  362. -- text size: 9
  363. -- style flags: 256
  364. -- line height: 12
  365. -- part name: netincome
  366.  
  367.  
  368. -- part 17 (button)
  369. -- low flags: 00
  370. -- high flags: 8003
  371. -- rect: left=3 top=124 right=146 bottom=159
  372. -- title width / last selected line: 0
  373. -- icon id / first selected line: 0 / 0
  374. -- text alignment: 1
  375. -- font id: 0
  376. -- text size: 12
  377. -- style flags: 0
  378. -- line height: 16
  379. -- part name: New Price
  380. ----- HyperTalk script -----
  381. on mouseUp
  382.   ask "What is the name of the product?"
  383.   push card
  384.   visual effect dissolve
  385.   go card it
  386.   if the result is not empty then
  387.     answer "Sorry, couldn't find that.  Check your spelling."
  388.     exit mouseup
  389.   end if
  390.   ask "What is the new price?"
  391.   put it into field regprice
  392.   visual effect dissolve
  393.   pop card
  394. end mouseUp
  395.  
  396.  
  397.  
  398. -- part 18 (button)
  399. -- low flags: 00
  400. -- high flags: 0000
  401. -- rect: left=464 top=21 right=60 bottom=505
  402. -- title width / last selected line: 0
  403. -- icon id / first selected line: 14767 / 14767
  404. -- text alignment: 1
  405. -- font id: 0
  406. -- text size: 12
  407. -- style flags: 0
  408. -- line height: 16
  409. -- part name: Tell Me About...
  410. ----- HyperTalk script -----
  411. on mouseUp
  412.   show card field "About"
  413. end mouseUp
  414.  
  415.  
  416. -- part 19 (field)
  417. -- low flags: 81
  418. -- high flags: 2004
  419. -- rect: left=159 top=224 right=281 bottom=365
  420. -- title width / last selected line: 0
  421. -- icon id / first selected line: 0 / 0
  422. -- text alignment: 1
  423. -- font id: 0
  424. -- text size: 12
  425. -- style flags: 0
  426. -- line height: 16
  427. -- part name: patient
  428.  
  429.  
  430. -- part contents for card part 13
  431. ----- text -----
  432. 0
  433. REVENUES
  434.  
  435. -- part contents for card part 14
  436. ----- text -----
  437. 0
  438. EXPENSES
  439.  
  440. -- part contents for card part 15
  441. ----- text -----
  442. 0
  443. NET INCOME
  444.  
  445. -- part contents for card part 9
  446. ----- text -----
  447. ‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢  Shareware Accountant  ‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢
  448.                  ¬©1987  Francis S. Patrick
  449.  
  450. Distributed via Shareware . . . Try it.  If you like it and use it, you are honor-bound to send $24 to:
  451.  
  452.    Francis S. Patrick
  453.    721 East Brookside Lane
  454.    Somerville, NJ  08876
  455.  
  456. If you have no use for it, pass it along to a friend, and erase it from your disks.  Registered users will receive the latest version by return mail.
  457.  
  458. ‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢  Instructions  ‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢
  459. Shareware Accountant is designed to assist the small developer and supporter of software distributed through the shareware system.
  460.  
  461. While software designers are undoubtedly bright, detail-oriented folks, many may lack the time or mindset to "take care of business."  Shareware Accountant will help get that side of the effort organized in two ways.
  462.  
  463. The top four buttons on the left handle a product registration database, creating a master card for a new product, changing version numbers, changing prices, and creating record cards of registered users for your products respectively.
  464.  
  465. The Expense Input button creates an expense card documenting where your money goes (how much, when, for what, and how you paid).  The expense input card simplifies record keeping with pictorial buttons that help speed the input of expense data (description and payment method info).
  466.  
  467. The Update Totals button maintains a running tally of the financial gain/loss from your endeavors.
  468.  
  469. -- part contents for card part 19
  470. ----- text -----
  471. Be Patient.  If you've been selling successfully, this may take a few moments.
  472.